[38;2;117;113;94m#[0m[38;2;117;113;94m take input from the user[0m
[38;2;248;248;242mnum [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;102;217;239mas.integer[0m[38;2;248;248;242m([0m[38;2;102;217;239mreadline[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mprompt[0m[38;2;249;38;114m=[0m[38;2;230;219;116m"[0m[38;2;230;219;116mEnter a number: [0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mfactorial [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m
[38;2;117;113;94m#[0m[38;2;117;113;94m check is the number is negative, positive or zero[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m([0m[38;2;248;248;242mnum [0m[38;2;249;38;114m<[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mSorry, factorial does not exist for negative numbers[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m[38;2;248;248;242m [0m[38;2;249;38;114melse[0m[38;2;248;248;242m [0m[38;2;249;38;114mif[0m[38;2;248;248;242m([0m[38;2;248;248;242mnum [0m[38;2;249;38;114m==[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mThe factorial of 0 is 1[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m[38;2;248;248;242m [0m[38;2;249;38;114melse[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;249;38;114mfor[0m[38;2;248;248;242m([0m[38;2;248;248;242mi [0m[38;2;249;38;114min[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;249;38;114m:[0m[38;2;248;248;242mnum[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;248;248;242mfactorial [0m[38;2;249;38;114m=[0m[38;2;248;248;242m factorial [0m[38;2;249;38;114m*[0m[38;2;248;248;242m i[0m
[38;2;248;248;242m}[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;102;217;239mpaste[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mThe factorial of[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m num [0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mis[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242mfactorial[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m

[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx [0m[38;2;249;38;114m<[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mNegative number[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m[38;2;248;248;242m [0m[38;2;249;38;114melse[0m[38;2;248;248;242m [0m[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx [0m[38;2;249;38;114m>[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mPositive number[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m[38;2;248;248;242m [0m[38;2;249;38;114melse[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mZero[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;249;38;114m:[0m[38;2;190;132;255m5[0m
[38;2;249;38;114mfor[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mval [0m[38;2;249;38;114min[0m[38;2;248;248;242m x[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mval [0m[38;2;249;38;114m==[0m[38;2;248;248;242m [0m[38;2;190;132;255m3[0m[38;2;248;248;242m)[0m[38;2;248;248;242m{[0m
[38;2;249;38;114mnext[0m
[38;2;248;248;242m}[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mval[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m

[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m
[38;2;249;38;114mrepeat[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mx [0m[38;2;249;38;114m=[0m[38;2;248;248;242m x[0m[38;2;249;38;114m+[0m[38;2;190;132;255m1[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx [0m[38;2;249;38;114m==[0m[38;2;248;248;242m [0m[38;2;190;132;255m6[0m[38;2;248;248;242m)[0m[38;2;248;248;242m{[0m
[38;2;249;38;114mbreak[0m
[38;2;248;248;242m}[0m
[38;2;248;248;242m}[0m

[38;2;166;226;46m`%divisible%`[0m[38;2;248;248;242m [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[3;38;2;102;217;239mfunction[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mx[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31my[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m{[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;249;38;114m%%[0m[38;2;248;248;242my [0m[38;2;249;38;114m==[0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;249;38;114mreturn[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;190;132;255mTRUE[0m[38;2;248;248;242m)[0m
[38;2;249;38;114melse[0m[38;2;248;248;242m          [0m[38;2;249;38;114mreturn[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;190;132;255mFALSE[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m

[38;2;102;217;239mswitch[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mlength[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mcolor[0m[38;2;230;219;116m"[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mred[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mshape[0m[38;2;230;219;116m"[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116msquare[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mlength[0m[38;2;230;219;116m"[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;190;132;255m5[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m][0m[38;2;248;248;242m [0m[38;2;190;132;255m5[0m

[38;2;166;226;46mrecursive.factorial[0m[38;2;248;248;242m [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[3;38;2;102;217;239mfunction[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mx[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx [0m[38;2;249;38;114m==[0m[38;2;248;248;242m [0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m[38;2;248;248;242m    [0m[38;2;249;38;114mreturn[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;190;132;255m1[0m[38;2;248;248;242m)[0m
[38;2;249;38;114melse[0m[38;2;248;248;242m           [0m[38;2;249;38;114mreturn[0m[38;2;248;248;242m [0m[38;2;248;248;242m([0m[38;2;248;248;242mx [0m[38;2;249;38;114m*[0m[38;2;248;248;242m [0m[38;2;248;248;242mrecursive.factorial[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;249;38;114m-[0m[38;2;190;132;255m1[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m

[38;2;166;226;46mpow[0m[38;2;248;248;242m [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[3;38;2;102;217;239mfunction[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mx[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31my[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;248;248;242m{[0m
[38;2;117;113;94m#[0m[38;2;117;113;94m function to print x raised to the power y[0m
[38;2;248;248;242mresult [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m x[0m[38;2;249;38;114m^[0m[38;2;248;248;242my[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;102;217;239mpaste[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mraised to the power[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m y[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mis[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m result[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242m}[0m

[38;2;248;248;242mA [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mread.table[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mx.data[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31msep[0m[38;2;249;38;114m=[0m[38;2;230;219;116m"[0m[38;2;230;219;116m,[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m
[38;2;248;248;242m                [0m[3;38;2;253;151;31mcol.names[0m[38;2;249;38;114m=[0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116myear[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mmy1[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mmy2[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mnrow[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;248;248;242m)[0m[38;2;248;248;242m                                 [0m[38;2;117;113;94m#[0m[38;2;117;113;94m Count the rows in A[0m

[38;2;102;217;239msummary[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;249;38;114m$[0m[38;2;248;248;242myear[0m[38;2;248;248;242m)[0m[38;2;248;248;242m                        [0m

[38;2;248;248;242mA[0m[38;2;249;38;114m$[0m[38;2;248;248;242mnewcol [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m A[0m[38;2;249;38;114m$[0m[38;2;248;248;242mmy1 [0m[38;2;249;38;114m+[0m[38;2;248;248;242m A[0m[38;2;249;38;114m$[0m[38;2;248;248;242mmy2               [0m[38;2;117;113;94m#[0m[38;2;117;113;94m Makes a new[0m
[38;2;248;248;242mnewvar [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m A[0m[38;2;249;38;114m$[0m[38;2;248;248;242mmy1 [0m[38;2;249;38;114m-[0m[38;2;248;248;242m A[0m[38;2;249;38;114m$[0m[38;2;248;248;242mmy2                 [0m[38;2;117;113;94m#[0m[38;2;117;113;94m Makes a [0m
[38;2;248;248;242mA[0m[38;2;249;38;114m$[0m[38;2;248;248;242mmy1 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;190;132;255mNULL[0m[38;2;248;248;242m                           [0m[38;2;117;113;94m#[0m[38;2;117;113;94m Removes [0m
[38;2;102;217;239mstr[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;248;248;242m)[0m
[38;2;102;217;239msummary[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mlibrary[0m[38;2;248;248;242m([0m[38;2;248;248;242mHmisc[0m[38;2;248;248;242m)[0m[38;2;248;248;242m          [0m
[38;2;248;248;242mcontents[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mdescribe[0m[38;2;248;248;242m([0m[38;2;248;248;242mA[0m[38;2;248;248;242m)[0m

[38;2;102;217;239mset.seed[0m[38;2;248;248;242m([0m[38;2;190;132;255m102[0m[38;2;248;248;242m)[0m[38;2;248;248;242m                           [0m[38;2;117;113;94m#[0m[38;2;117;113;94m This yields a good illustration.[0m
[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239msample[0m[38;2;248;248;242m([0m[38;2;190;132;255m1[0m[38;2;249;38;114m:[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m15[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mreplace[0m[38;2;249;38;114m=[0m[38;2;190;132;255mTRUE[0m[38;2;248;248;242m)[0m
[38;2;248;248;242meducation [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mfactor[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mlabels[0m[38;2;249;38;114m=[0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mNone[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mSchool[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mCollege[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239msample[0m[38;2;248;248;242m([0m[38;2;190;132;255m1[0m[38;2;249;38;114m:[0m[38;2;190;132;255m2[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m15[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mreplace[0m[38;2;249;38;114m=[0m[38;2;190;132;255mTRUE[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mgender [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mfactor[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mlabels[0m[38;2;249;38;114m=[0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mMale[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mFemale[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mage [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mrunif[0m[38;2;248;248;242m([0m[38;2;190;132;255m15[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mmin[0m[38;2;249;38;114m=[0m[38;2;190;132;255m20[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mmax[0m[38;2;249;38;114m=[0m[38;2;190;132;255m60[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mD [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mdata.frame[0m[38;2;248;248;242m([0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242m gender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m education[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mrm[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;248;248;242m,[0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Table about education[0m
[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Table about education and gender --[0m
[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m
[38;2;117;113;94m#[0m[38;2;117;113;94m Joint distribution of education and gender --[0m
[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m[38;2;249;38;114m/[0m[38;2;102;217;239mnrow[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Add in the marginal distributions also[0m
[38;2;102;217;239maddmargins[0m[38;2;248;248;242m([0m[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;102;217;239maddmargins[0m[38;2;248;248;242m([0m[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m[38;2;249;38;114m/[0m[38;2;102;217;239mnrow[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Generate a good LaTeX table out of it --[0m
[38;2;102;217;239mlibrary[0m[38;2;248;248;242m([0m[38;2;248;248;242mxtable[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mxtable[0m[38;2;248;248;242m([0m[38;2;102;217;239maddmargins[0m[38;2;248;248;242m([0m[38;2;102;217;239mtable[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m[38;2;249;38;114m/[0m[38;2;102;217;239mnrow[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m
[38;2;248;248;242m       [0m[3;38;2;253;151;31mdigits[0m[38;2;249;38;114m=[0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m0[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m[38;2;248;248;242m  [0m

[38;2;102;217;239mby[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m mean[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mby[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m sd[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mby[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m summary[0m[38;2;248;248;242m)[0m

[38;2;248;248;242ma [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mmatrix[0m[38;2;248;248;242m([0m[38;2;102;217;239mby[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mage[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;102;217;239mlist[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m,[0m[38;2;248;248;242m D[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[38;2;248;248;242m mean[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mnrow[0m[38;2;249;38;114m=[0m[38;2;190;132;255m2[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mrownames[0m[38;2;248;248;242m([0m[38;2;248;248;242ma[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mlevels[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242mgender[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mcolnames[0m[38;2;248;248;242m([0m[38;2;248;248;242ma[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mlevels[0m[38;2;248;248;242m([0m[38;2;248;248;242mD[0m[38;2;249;38;114m$[0m[38;2;248;248;242meducation[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242ma[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mxtable[0m[38;2;248;248;242m([0m[38;2;248;248;242ma[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mdat [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mread.csv[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mfile[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mfiles/dataset-2013-01.csv[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mheader[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;190;132;255mTRUE[0m[38;2;248;248;242m)[0m
[38;2;248;248;242minterim_object [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mdata.frame[0m[38;2;248;248;242m([0m[38;2;102;217;239mrep[0m[38;2;248;248;242m([0m[38;2;190;132;255m1[0m[38;2;249;38;114m:[0m[38;2;190;132;255m100[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m10[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m
[38;2;248;248;242m                             [0m[38;2;102;217;239mrep[0m[38;2;248;248;242m([0m[38;2;190;132;255m101[0m[38;2;249;38;114m:[0m[38;2;190;132;255m200[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m10[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m
[38;2;248;248;242m                             [0m[38;2;102;217;239mrep[0m[38;2;248;248;242m([0m[38;2;190;132;255m201[0m[38;2;249;38;114m:[0m[38;2;190;132;255m300[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m10[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mobject.size[0m[38;2;248;248;242m([0m[38;2;248;248;242minterim_object[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m
[38;2;102;217;239mrm[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116minterim_object[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m
[38;2;102;217;239mls[0m[38;2;248;248;242m([0m[38;2;248;248;242m)[0m[38;2;248;248;242m [0m
[38;2;102;217;239mrm[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mlist[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;102;217;239mls[0m[38;2;248;248;242m([0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mvector1 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m5[0m[38;2;248;248;242m,[0m[38;2;190;132;255m9[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mvector2 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m10[0m[38;2;248;248;242m,[0m[38;2;190;132;255m11[0m[38;2;248;248;242m,[0m[38;2;190;132;255m12[0m[38;2;248;248;242m,[0m[38;2;190;132;255m13[0m[38;2;248;248;242m,[0m[38;2;190;132;255m14[0m[38;2;248;248;242m,[0m[38;2;190;132;255m15[0m[38;2;248;248;242m)[0m
[38;2;248;248;242marray1 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239marray[0m[38;2;248;248;242m([0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;248;248;242mvector1[0m[38;2;248;248;242m,[0m[38;2;248;248;242mvector2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mdim[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mvector3 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m9[0m[38;2;248;248;242m,[0m[38;2;190;132;255m1[0m[38;2;248;248;242m,[0m[38;2;190;132;255m0[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mvector4 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m6[0m[38;2;248;248;242m,[0m[38;2;190;132;255m0[0m[38;2;248;248;242m,[0m[38;2;190;132;255m11[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m14[0m[38;2;248;248;242m,[0m[38;2;190;132;255m1[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m,[0m[38;2;190;132;255m6[0m[38;2;248;248;242m,[0m[38;2;190;132;255m9[0m[38;2;248;248;242m)[0m
[38;2;248;248;242marray2 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239marray[0m[38;2;248;248;242m([0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;248;248;242mvector1[0m[38;2;248;248;242m,[0m[38;2;248;248;242mvector2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mdim[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mmatrix1 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m array1[0m[38;2;248;248;242m[[0m[38;2;248;248;242m,[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m][0m
[38;2;248;248;242mmatrix2 [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m array2[0m[38;2;248;248;242m[[0m[38;2;248;248;242m,[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m][0m
[38;2;248;248;242mresult [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m matrix1[0m[38;2;249;38;114m+[0m[38;2;248;248;242mmatrix2[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mresult[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mcolumn.names [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mCOL1[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mCOL2[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mCOL3[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mrow.names [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mROW1[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mROW2[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mROW3[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mmatrix.names [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mMatrix1[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mMatrix2[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mresult [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239marray[0m[38;2;248;248;242m([0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;248;248;242mvector1[0m[38;2;248;248;242m,[0m[38;2;248;248;242mvector2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mdim[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mdimnames[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[3;38;2;102;217;239mlist[0m[38;2;248;248;242m([0m[38;2;248;248;242mrow.names[0m[38;2;248;248;242m,[0m
[38;2;248;248;242m   column.names[0m[38;2;248;248;242m,[0m[38;2;248;248;242m matrix.names[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mresult[0m[38;2;248;248;242m[[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m][0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mresult[0m[38;2;248;248;242m[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m1[0m[38;2;248;248;242m][0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mresult[0m[38;2;248;248;242m[[0m[38;2;248;248;242m,[0m[38;2;248;248;242m,[0m[38;2;190;132;255m2[0m[38;2;248;248;242m][0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Load the package required to read JSON files.[0m
[38;2;102;217;239mlibrary[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mrjson[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mresult [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;248;248;242mfromJSON[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mfile[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116minput.json[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mresult[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mx [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m151[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m174[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m138[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m186[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m128[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m136[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m179[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m163[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m152[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m131[0m[38;2;248;248;242m)[0m
[38;2;248;248;242my [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m63[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m81[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m56[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m91[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m47[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m57[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m76[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m72[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m62[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;190;132;255m48[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mrelation [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mlm[0m[38;2;248;248;242m([0m[38;2;248;248;242my[0m[38;2;249;38;114m~[0m[38;2;248;248;242mx[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mrelation[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mrelation [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mlm[0m[38;2;248;248;242m([0m[38;2;248;248;242my[0m[38;2;249;38;114m~[0m[38;2;248;248;242mx[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mpng[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mfile[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mlinearregression.png[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mplot[0m[38;2;248;248;242m([0m[38;2;248;248;242my[0m[38;2;248;248;242m,[0m[38;2;248;248;242mx[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mcol[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mblue[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mmain[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mHeight & Weight Regression[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m
[38;2;102;217;239mabline[0m[38;2;248;248;242m([0m[38;2;102;217;239mlm[0m[38;2;248;248;242m([0m[38;2;248;248;242mx[0m[38;2;249;38;114m~[0m[38;2;248;248;242my[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mcex[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;190;132;255m.[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mpch[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;190;132;255m16[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mxlab[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mWeight in Kg[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mylab[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mHeight in cm[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mdev.off[0m[38;2;248;248;242m([0m[38;2;248;248;242m)[0m

[38;2;248;248;242mdata [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;230;219;116m"[0m[38;2;230;219;116mEast[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mWest[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mEast[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mNorth[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mNorth[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mEast[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mWest[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mWest[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mWest[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mEast[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;230;219;116m"[0m[38;2;230;219;116mNorth[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mdata[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;102;217;239mis.factor[0m[38;2;248;248;242m([0m[38;2;248;248;242mdata[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m
[38;2;248;248;242mfactor_data [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mfactor[0m[38;2;248;248;242m([0m[38;2;248;248;242mdata[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;248;248;242mfactor_data[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mprint[0m[38;2;248;248;242m([0m[38;2;102;217;239mis.factor[0m[38;2;248;248;242m([0m[38;2;248;248;242mfactor_data[0m[38;2;248;248;242m)[0m[38;2;248;248;242m)[0m

[38;2;248;248;242mv [0m[38;2;249;38;114m<-[0m[38;2;248;248;242m [0m[38;2;102;217;239mc[0m[38;2;248;248;242m([0m[38;2;190;132;255m7[0m[38;2;248;248;242m,[0m[38;2;190;132;255m12[0m[38;2;248;248;242m,[0m[38;2;190;132;255m28[0m[38;2;248;248;242m,[0m[38;2;190;132;255m3[0m[38;2;248;248;242m,[0m[38;2;190;132;255m41[0m[38;2;248;248;242m)[0m

[38;2;117;113;94m#[0m[38;2;117;113;94m Give the chart file a name.[0m
[38;2;102;217;239mpng[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mfile[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mline_chart_label_colored.jpg[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
[38;2;102;217;239mplot[0m[38;2;248;248;242m([0m[38;2;248;248;242mv[0m[38;2;248;248;242m,[0m[3;38;2;253;151;31mtype[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mo[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mcol[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mred[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mxlab[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mMonth[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mylab[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mRain fall[0m[38;2;230;219;116m"[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[3;38;2;253;151;31mmain[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;230;219;116m"[0m[38;2;230;219;116mRain fall chart[0m[38;2;230;219;116m"[0m[38;2;248;248;242m)[0m
